PL1=0
DO WHILE PL1=0
   @ 7, 1 CLEA TO 23,78
   SET COLO TO W+/B,W+/N
   @  8,5 say "DOCTOR'S FEES MONTHLY REPORT"
   @  7,3 TO 9,35
   SET COLOR TO W+/N
   @ 11,5 CLEA TO 23,39
   SET COLOR TO N/BG,W+/N
   @ 10, 3 CLEA TO 22,37
   @ 10, 3 to 22,37 double
   @ 12, 5 prompt " A .. ALL DOCTORS              "
   @ 14, 5 prompt " B .. STARTING WITH .......... "
   @ 16, 5 PROMPT " C .. INDIVIDUAL DOCTOR        "
   @ 18, 5 PROMPT " D .. SORT BY DATE             "
   @ 20, 5 PROMPT " X .. RETURN TO PREVIOUS MENU  "
   MENU TO PL1
   SET COLO TO w+/B,w+/n
   IF LAST()=27
*       CLEAR
       RETURN
   ENDIF
   DNAME=SPACE(12)
   DO CASE
      CASE PL1=1
         DALL='Y'
         do RDOCALL
      CASE PL1=2
         DALL='N'
         @ 14,41 say "Dr. :"
         do while dname=space(12)
            @ 14,47 GET DNAME PICT "@!"
            READ
         enddo
         @ 14,41 clea to 14,78
         DO RDOCALL
      CASE PL1=3
         DO RDOCIND
      CASE PL1=4
         DALL='Y'
         LY=SAVESCREEN(0,0,24,79)
         do RDOCDAT
         SET COLO TO BG+/B,W+/N
         RESTSCREEN(0,0,24,79,LY)
      CASE PL1=5
         RETURN
   ENDCASE
ENDDO

